home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’95 / IceBreaker / Project Data < prev   
Text File  |  1995-06-28  |  800b  |  33 lines
  1.  
  2. func getSound11K(rsrcName,is11kHz)
  3.     begin
  4.         local snd := {
  5.         sndFrameType: 'simpleSound,
  6.         samplingRate: 11013.0,
  7.         dataType: 1,
  8.         compressionType: 0};
  9.  
  10.         snd.samples := GetSndAsSamplesRate11KHz(rsrcName);
  11.         return  snd
  12.     end;
  13.  
  14. func getSound2K(rsrcName)
  15.     begin
  16.         local snd := {
  17.         sndFrameType: 'simpleSound,
  18.         samplingRate: 22026.0,
  19.         dataType: 1,
  20.         compressionType: 0};
  21.  
  22.         snd.samples := GetSndAsSamplesRate11KHz(rsrcName);
  23.         return  snd
  24.     end;
  25.  
  26. rf := OpenResFileX(":IceBreaker.rsrc");
  27.  
  28. BigSupriseSnd := getSound11K("BigSuprise", TRUE);
  29. HeartAttackSnd := getSound11K("HeartAttack", TRUE);
  30. WhatToDoSnd := getSound11K("WhatToDo", TRUE);
  31. BigProblemSnd := getSound11K("BigProblem", TRUE);
  32.  
  33. CloseResFileX(rf);